home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.makedir < prev    next >
Text File  |  2000-03-14  |  578b  |  32 lines
  1. G4C
  2. ; $VER: func.makedir Rev.013 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 250 20 "Neues Verzeichnis anlegen"
  4. WinType 01001000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. WinOnMouse 5 5
  8.  
  9. xOnLoad
  10.     GuiOpen #This
  11.  
  12. xOnOpen
  13.     Update #This 1 "$*string1"
  14.     string = $*string1
  15.  
  16. xTextIn 2 0 177 20 "" string "" 255
  17.     GadID 1
  18.     GadFont "xHelvetica.font" "11" 000
  19.     *string1 = "$string"
  20.     LVUSE "HTMLEXT" 3
  21.     Joinfile $$lv.dir $string ndir
  22.     CLI 'makedir $ndir'
  23.     LVDIR #$$LV.DIR
  24.     GuiQuit #This
  25.  
  26.  
  27. xButton 180 0 70 20 "[_X] Abbrechen"
  28.     GadFont "xHelvetica.font" "11" 000
  29.     GadKey "x"
  30.     GuiQuit #This
  31.  
  32.